home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / demodisks / drives / 1581-demo.lzh / partition aid (.txt) < prev    next >
Commodore BASIC  |  1994-10-19  |  4KB  |  144 lines
  1. 100 ifa=74then501
  2. 101 gosub880:ifsx=0then145
  3. 110 (NULL)15:(NULL)clr:if(NULL)(0)=5then(NULL)%
  4. 120 if(NULL)(0)<>5then(NULL)&
  5. 130 (NULL)130:close15:ifer=5then260
  6. 140 sys11252
  7. 145 poke53280,0:poke53281,0:l1$="   [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  8. 150 printchr$(142)"[147]"l1$
  9. 160 printspc(9)"[159]partition aid"
  10. 170 printl1$
  11. 180 printspc(5)"[155] 1.  show partitions"
  12. 190 printspc(5)"[155] 2.  create partition"
  13. 200 printspc(5)"[155] 3.  directory"
  14. 210 printspc(5)"[155] 4.  change unit
  15. 220 [153][166]5)"list 5.  quit":[153]l1$
  16. 230 [139]ru[178]1[167]290
  17. 240 :u[178]8
  18. 250 [141]890:[139]dr[178]8[167]290
  19. 260 u[178]u[170]1:[139]u[179]12[167]250
  20. 270 [139]ru[178]0[167][137]930
  21. 280 :[137]240
  22. 290 ru[178]1:[153][166]4)"openunit:"u"open     drive: 1581" :[153]l1$
  23. 300 [161]k$:[139]k$[178]""[167]300
  24. 310 [145][197](k$)[137]510,960,360,790,330
  25. 320 [137]300
  26. 330 [153]"load":[128]
  27. 340 [143]
  28. 360 [153]"load"l1$
  29. 370 [153][166]10)"opendirectory":[153]l1$
  30. 390 [159]15,u,15:[159]96,u,96,"$0":[141]820:[139]a[177]19[167][160]96:[160]15:[137]100
  31. 400 [153][166]5)"list"[199](34);
  32. 410 [158]6145:[158]6170:[153]
  33. 420 [129]y[178]1[164]15:[158]6145
  34. 430 [139][194](6144)[179][177]0[167]490
  35. 440 [153][166]5)[199](34);
  36. 450 [158]6170
  37. 460 [153]:[130]y
  38. 470 [141]850:[153]:[129]y[178]1[164]17:[153]"onon                              ":[130]y
  39. 480 [153]"onon":[137]420
  40. 490 [160]96:[160]15:[141]850:[137]145
  41. 500 [139]a[179][177]74[167]100
  42. 501 a[178]0:[153]"list there is no sub-directory. on":[141]1920
  43. 502 [139]x$[178]"y"[167][159]15,u,15:[137]1670
  44. 503 [159]15,u,15,"i0":[160]15:[137]100
  45. 510 [153]"load"l1$
  46. 520 [153][166]9)"openshow partitions"
  47. 530 [153]l1$
  48. 540 [159]15,u,15:[159]96,u,96,"$0":[141]820:[139]a[177]19[167][160]96:[160]15:[137]500
  49. 550 [153][166]3)"list  "[199](34);
  50. 560 [158]6145:[158]6170:[153]"  ":yy[178]0:zz[178]0
  51. 570 [129]y[178]1[164]296:[158]6145
  52. 580 [139][194](6144)[179][177]0[167]640
  53. 590 [158]6213:[139][194](6191)[178][198]("m")[167]yy[178]yy[170]1:zz[178]zz[170]1
  54. 600 [139]yy[178]8[167]yy[178]0:[137]620
  55. 610 [130]y:[137]640
  56. 620 [141]850:[153]:[129]y[178]1[164]10:[153]"onon                              ":[130]y
  57. 630 [153]"onon":[137]570
  58. 640 [160]96:[160]15
  59. 650 [153] "listwant to go to a partition ?"
  60. 660 [133]"ycmdcmdcmd";x$: [139] x$[179][177]"y" [167] 145
  61. 670 [153] "listok, enter a partition name."
  62. 680 p$[178]"root":[133]"rootcmdcmdcmdcmdcmdcmd";p$:
  63. 690 [139]zz[178]0[175]p$[179][177]"root"[167][153]"onon":[137]680
  64. 700 x[178][195](p$):[139]x[177]16[167][153]"onon":[137]680
  65. 710 [139]x[178]0[167]145
  66. 720 [139] ((zz[178]0) [176] (p$[178]"root"))[167] [159]15,u,15,"i0":[137]740
  67. 730 [159]15,u,15,"/0:"[170]p$
  68. 740 [141]820
  69. 750 [139]a[178]2[167][153][166]3)"waitliststatus: "b$;c;d:[141]850:[137]770
  70. 760 [139]a[178]0[167][153][166]4)"waitliststatus:oncmdcmdcmdcmd";:[141]840
  71. 770 [160]15:[137]145
  72. 780 [143]
  73. 790 [153]"                                 ":[153]"onon":u[178]u[170]1
  74. 800 ru[178]2:[137]250
  75. 810 [143]
  76. 820 [132]15,a,b$,c,d:[139]a[179]20[167][142]
  77. 830 [153]"listdisk error:"
  78. 840 [153]""a;b$;c;d:[141]850:[142]
  79. 850 [139]a[178]74[167][142]
  80. 851 [153]:[153]"listpress any key to continue"
  81. 860 [161]k$:[139]k$[178]""[167]860
  82. 870 [142]
  83. 880 sx[178][182]([194](65533)[178]255):[142]  :[143] sx=0 if c64, sx=1 if c128
  84. 890 [159]15,u,15:[141]900:[160]15:[142]
  85. 900 [152]15,"m-r"[199](198)[199](229)[199](1):[161]#15,a$:a$[178]a$[170][199](0)
  86. 910 [139][198](a$)[178]255[167]dr[178]8:[142]
  87. 920 dr[178]7:[142]
  88. 930 [153]"list1581 drive not presenton":[128]
  89. 950 [143]
  90. 960 [153]"load"l1$
  91. 970 [153][166]8)"opencreate partition"
  92. 980 [153]l1$
  93. 990 [153]"listto create a sub-directory"
  94. 1000 [153]"listyour partition must:     wait"
  95. 1010 [153]"    (1) start on sector 0"
  96. 1020 [153]"    (2) be at least 120 blocks"
  97. 1030 [153]"    (3) be a multiple of 40 blocks"
  98. 1040 [153] "list enter a partition name. "
  99. 1050 p$[178]"end":[133]"endcmdcmdcmdcmdcmd";p$:
  100. 1060 x[178][195](p$):[139]x[177]16[167][153]"onon":[137]1050
  101. 1070 [139]x[178]0[176]p$[178]"end"[167]145
  102. 1080 [153] "list first track (1-39 or 41-80)"
  103. 1090 t[178]1:[133]"1cmdcmdcmd";t:
  104. 1100 [139](t[179]1)[176](t[178]40)[176](t[177]80)[167][153]"onon":[137]1090
  105. 1110 [153] "list first sector (0-39)        "
  106. 1120 s[178]0:[133]"0cmdcmdcmd";s:
  107. 1130 [139](s[179]0)[176](s[177]39)[167][153]"onon":[137]1120
  108. 1140 [153] "list number of blocks in partition"
  109. 1141 n[178]120:[133]"120cmdcmdcmdcmdcmd";n:
  110. 1150 [139] n[178]0 [167] [153] "onon": [137]1141
  111. 1170 [139][181](n[173]40)[178]n[173]40[167]1210
  112. 1180 [153]"listnot a multiple of 40."
  113. 1190 c$[178]"n":[133] "continue anyway (y/n): ? ncmdcmdcmd";c$
  114. 1191 [139]c$[178]"n"[167][153]"onononon":[137]1141
  115. 1200 [139]c$[179][177]"y"[167][153]"onon":[137]1190
  116. 1210 a1[178][181](n[173]256) : a2[178]n[171]a1[172]256
  117. 1220 cm$[178]"/0:"[170]p$[170]","[170][199](t)[170][199](s)[170][199](a2)[170][199](a1)[170]",c"
  118. 1230 [153]"":[129]x[178]1[164]20:[153]"                                   ":[130]x
  119. 1240 [153]"listcreating partition: ";
  120. 1242 [139][195](p$)[179]8[167][153]p$:[153]:[137]1250
  121. 1243 [153]:[153]""p$:[153]:[137]1250
  122. 1250 [159]15,u,15:[152]15,cm$:[141]820
  123. 1255 [139]a[177]19[167][160]15:[137]145
  124. 1260 [153]"liststatus: "a;b$;c;d:[137]1310
  125. 1300 [160]15:[141]850:[137]145
  126. 1310 [139][181](n[173]40)[179][177]n[173]40[167]1300
  127. 1320 [139]n[179]120[167]1300
  128. 1330 [139]s[179][177]0[167]1300
  129. 1650 [141]1920
  130. 1660 [139] x$[179][177]"y" [167][160]15:[137]145
  131. 1670 [153] "listok, enter a directory name."
  132. 1675 [153]""p$;:x[178][195](p$)[170]2:[129]xx[178]1[164]x:[153]"cmd";:[130]xx
  133. 1680 [133]h$:
  134. 1700 x[178][195](h$):[139]x[177]16[167][153]"onon":[137]1680
  135. 1710 [139]x[178]0[167][160]15:[137]145
  136. 1800 [153] "listok, enter 2 character id.   "
  137. 1880 id$[178]"xx":[133]"xxcmdcmdcmdcmd";id$:
  138. 1890 [139][195](id$)[177]2[176][195](id$)[179]2[167][153]"onon":[137]1880
  139. 1899 [152]15,"/0:"[170]p$
  140. 1900 [152]15,"n0:"[170]h$[170]","[170]id$
  141. 1910 s[178]1:[153]:[141]820:[137]1255
  142. 1920 [153] "listwant to make a sub-directory"
  143. 1921 [153] "for this partition?         ":[133]"ycmdcmdcmd";x$:[142]
  144.